home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / io_bas / disp_snd.bas next >
BASIC Source File  |  1994-06-01  |  1KB  |  35 lines
  1. 10 '
  2. 20 '   < サウンドデーター表示 ( おまけサンプル ) >
  3. 30 '                                  for F-BASIC 386 V2.1 L10 以上
  4. 40 '                                      Programmed by Luzz-tum
  5. 50 '
  6. 60 '　　PCM 波形を表示するプログラムです。
  7. 70 '　　当たり前ですが、アドレスデーター（このプログラムでは変数 ADDR ）
  8. 80 '　は 32 bit のロング型変数にしないとエラーがでます。
  9. 90 '　　PO に変換後の値が格納されます。値の範囲は +126 から -127 です。
  10. 100 '
  11. 110 '
  12. 120 SCREEN 0:SCREEN @0:VIEW:WINDOW:COLOR 7,0,7,0:CLS:WIDTH 80,25
  13. 130 CLEAR:DEFLNG A-Z:DIM SAM%(20000)
  14. 140 PRINT "PCM データーを表示します。"
  15. 150 PRINT "何かキーを押したらすぐに音を入れて下さい。"
  16. 160 WHILE INKEY$="":WEND
  17. 170 PRINT "Now sampling rate = 19200KHz"
  18. 180 PRINT "サンプリング中"
  19. 190 PCMREC SAM%,19200
  20. 200 PRINT "============="
  21. 210 PRINT "サンプリング終了"
  22. 220 PRINT "何かキーを押すと、再生して、波形を表示します。"
  23. 230 WHILE INKEY$="":WEND
  24. 240 PCMPLAY SAM%,127
  25. 250 ADDR&=VARPTR(SAM%(0))
  26. 260 CLS
  27. 270 FOR X=0 TO 639
  28. 280   DAT=PEEK(ADDR&+PS+X,1):W_DAT=DAT AND 127
  29. 290   IF (DAT AND 128)=0 W_DAT=-W_DAT
  30. 300   LINE (X,BW_DAT+200)-(X,W_DAT+200),PSET:BW_DAT=W_DAT
  31. 310 NEXT
  32. 320 PS=PS+640
  33. 330 CLS:PRINT PS/19200"秒目"
  34. 340 GOTO 270
  35.